home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pcmini / form1.frm next >
Text File  |  1999-04-05  |  2KB  |  76 lines
  1. VERSION 5.00
  2. Object = "{FFF48193-EAF1-11D2-8B3D-000000000000}#5.0#0"; "PCM_INI.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Sample INI"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3780
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1395
  11.    ScaleWidth      =   3780
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Load"
  15.       Height          =   495
  16.       Left            =   2400
  17.       TabIndex        =   3
  18.       Top             =   720
  19.       Width           =   1215
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Save"
  23.       Height          =   495
  24.       Left            =   2400
  25.       TabIndex        =   2
  26.       Top             =   120
  27.       Width           =   1215
  28.    End
  29.    Begin VB.TextBox Text1 
  30.       Height          =   285
  31.       Left            =   120
  32.       TabIndex        =   1
  33.       Top             =   120
  34.       Width           =   2055
  35.    End
  36.    Begin PCM_INI.PCMINI PCMINI1 
  37.       Left            =   120
  38.       Top             =   720
  39.       _ExtentX        =   873
  40.       _ExtentY        =   873
  41.    End
  42.    Begin VB.Label Label1 
  43.       Height          =   255
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   840
  47.       Width           =   1935
  48.    End
  49. End
  50. Attribute VB_Name = "Form1"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55. Private Sub Command1_Click()
  56. With PCMINI1
  57.     .INIFile = "MY.INI"
  58.     .Group = "TEST"
  59.     .ID = "GREATING"
  60.     .Value = Text1.Text
  61.     .Save
  62. End With
  63.  
  64. End Sub
  65.  
  66. Private Sub Command2_Click()
  67. With PCMINI1
  68.     .INIFile = "MY.INI"
  69.     .Group = "TEST"
  70.     .ID = "GREATING"
  71.     .Load
  72.     Label1.Caption = .Value
  73. End With
  74.  
  75. End Sub
  76.